home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-19 / pkey12_1.zip / COMPRESS.LSP < prev    next >
Text File  |  1992-09-13  |  487b  |  14 lines
  1. ;Drawing compression program (carefull !! make sure you want to.)
  2. ;
  3. ;
  4. (DEFUN C:COMPRESS()
  5. (setq oer  *error*  *error*  err2)
  6. (PRINC "\nPlease standby..........Compressing drawing file.")
  7. (PRINC "\nAfter compression, drawing will automatically be recalled.")
  8. (COMMAND "LAYER" "T" "*" "ON" "*" "")
  9. (command "zoom""all")
  10. (SETQ WP1(GETVAR "VSMIN"))
  11. (SETQ WP2(GETVAR "VSMAX"))
  12. (SETQ DWG(GETVAR "DWGNAME"))
  13. (COMMAND "WBLOCK" DWG "Y" "" "0,0" "C" WP1 WP2 "" "script" "COMPRESS"))
  14.